home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / digitr2a / controlt.frm < prev    next >
Text File  |  1999-07-30  |  2KB  |  82 lines
  1. VERSION 5.00
  2. Object = "{EA11677F-459F-11D3-80DA-444553540001}#2.0#0"; "3DControl.ocx"
  3. Begin VB.Form ControlTest 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   3705
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   4680
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   3705
  11.    ScaleWidth      =   4680
  12.    Tag             =   "/out"
  13.    Begin Feucht3DControl.Control3D Control3D1 
  14.       Left            =   75
  15.       Top             =   75
  16.       _ExtentX        =   847
  17.       _ExtentY        =   847
  18.       NumberMask      =   "11111"
  19.    End
  20.    Begin VB.Timer Timer1 
  21.       Left            =   75
  22.       Top             =   825
  23.    End
  24.    Begin VB.CommandButton Command1 
  25.       Caption         =   "Command1"
  26.       Height          =   465
  27.       Left            =   1425
  28.       TabIndex        =   0
  29.       Tag             =   "/out"
  30.       Top             =   525
  31.       UseMaskColor    =   -1  'True
  32.       Width           =   1215
  33.    End
  34.    Begin VB.PictureBox Picture1 
  35.       AutoRedraw      =   -1  'True
  36.       Height          =   2040
  37.       Left            =   675
  38.       ScaleHeight     =   1980
  39.       ScaleWidth      =   3330
  40.       TabIndex        =   1
  41.       Top             =   1500
  42.       Width           =   3390
  43.       Begin VB.PictureBox Picture2 
  44.          Height          =   1440
  45.          Left            =   1575
  46.          ScaleHeight     =   1380
  47.          ScaleWidth      =   1530
  48.          TabIndex        =   3
  49.          Top             =   300
  50.          Width           =   1590
  51.          Begin VB.CommandButton Command3 
  52.             Caption         =   "Command2"
  53.             Height          =   1140
  54.             Left            =   150
  55.             TabIndex        =   4
  56.             Tag             =   "/out"
  57.             Top             =   75
  58.             Width           =   1215
  59.          End
  60.       End
  61.       Begin VB.CommandButton Command2 
  62.          Caption         =   "Command2"
  63.          Height          =   1140
  64.          Left            =   150
  65.          TabIndex        =   2
  66.          Tag             =   "/in"
  67.          Top             =   300
  68.          Width           =   1215
  69.       End
  70.    End
  71. End
  72. Attribute VB_Name = "ControlTest"
  73. Attribute VB_GlobalNameSpace = False
  74. Attribute VB_Creatable = False
  75. Attribute VB_PredeclaredId = True
  76. Attribute VB_Exposed = False
  77. Option Explicit
  78.  
  79. Private Sub Form_Paint()
  80.     Control3D1.PaintTargetControls
  81. End Sub
  82.